home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / qbtools1.arc / AEIBLFRM.BAS < prev    next >
BASIC Source File  |  1987-01-11  |  896b  |  45 lines
  1. rem $linesize:132
  2. rem $title:'Application Engineer Standard Routines'
  3. rem $subtitle:'Draw a frame around the block I/O area'
  4. '                Include the COMMON values
  5. rem $include:'AESHARED.BAS'            
  6.     
  7. sub I.Block.Frame(ycoord%,xcoord%,l.vert%,l.horz%,toggle%) static
  8. '
  9. '  I.Block.Frame toggles the Frame of the input block On or Off
  10. '
  11.     lx%=xcoord%-1%
  12.     rx%=xcoord%+l.horz%
  13.     ty%=ycoord%-1%
  14.     by%=ycoord%+l.vert%
  15.  
  16.     vc$=" "
  17.     bl$=" "
  18.     br$=" "
  19.     tl$=" "
  20.     tr$=" "
  21.     hc$=" "
  22.  
  23.     if toggle%=1% then
  24.         vc$=chr$(179%)
  25.         hc$=chr$(196%)
  26.         bl$=chr$(192%)
  27.         br$=chr$(217%)
  28.         tl$=chr$(218%)
  29.         tr$=chr$(191%)
  30.     end if
  31.  
  32.     htop$=tl$+string$(l.horz%,hc$)+tr$
  33.     hbot$=bl$+string$(l.horz%,hc$)+br$
  34.  
  35.     call qprint(htop$,ty%,lx%)
  36.  
  37.     for j%=ty%+1% to by%-1%
  38.         call qprint(vc$,j%,lx%)
  39.         call qprint(vc$,j%,rx%)
  40.     next j%
  41.  
  42.     call qprint(hbot$,by%,lx%)
  43.  
  44. end sub
  45.